home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / qbbs276s.zip / RICK-L.ZIP / MAIN-DIR.ZIP / NEWUSER!.Q-A < prev    next >
Text File  |  1991-12-22  |  2KB  |  72 lines
  1. PostInfo
  2. Changecolor 10 0
  3. Display "  ----------------------------------------------------------------|"
  4. Display "   The CPU needs some more information from you in order to grant |"
  5. Display "   you higher access on this system. Answer following questions   |"
  6. Display "   truthfully or you will forever remain a .src file lost on a HD |"
  7. Display "  ----------------------------------------------------------------||"
  8. Changecolor 11 0
  9. Display "  -----------------------------------|"
  10. Display "   What is your address? <40 chars.> |"
  11. Display "  -----------------------------------|"
  12. Ask 40 1
  13. OutputAnswer "Address: " 1
  14. Display "|"
  15. Changecolor 12 0
  16. Display "  --------------------------------------------------|"
  17. Display "   What kind of computer are you using? <15 chars.> |"
  18. Display "  --------------------------------------------------||"
  19. Ask 15 2
  20. OutputAnswer "Computer: " 2
  21. Display "|"
  22. Changecolor 13 0
  23. Display "  -------------------------------------|"
  24. Display "   What is your baud rate? <10 chars.> |"
  25. Display "  -------------------------------------||"
  26. Ask 10 3
  27. OutputAnswer "Baud: " 3
  28. Display "|"
  29. Changecolor 14 0
  30. Display "  ----------------------|"
  31. Display "   Are you a Sysop? Y/N |"
  32. Display "  ----------------------||"
  33. Ask 1 4
  34. If 4 = "y"
  35. Display "|"
  36. Display "  -------------------------------------------|"
  37. Display "   What is the name of your bbs? <20 chars.> |"
  38. Display "  -------------------------------------------||"
  39. Ask 20 5
  40. OutputAnswer "Bbs: " 5
  41. Display "|"
  42. Display "  -------------------------------------------------|"
  43. Display "   What is the data number of the bbs? <12 chars.> |"
  44. Display "  -------------------------------------------------||"
  45. Ask 12 6
  46. OutputAnswer "Bbs #: " 6
  47. Display "|"
  48. Endif
  49. Changecolor 15 0
  50. Display " -------------------------------------------------------------------|"
  51. Display "Please tell the CPU why you are a special source file <3 lines>|"
  52. Display " -------------------------------------------------------------------|"
  53. Display "|"
  54. Display "1:"
  55. Ask  77  7
  56. Display "2:"
  57. Ask  77  8
  58. Display "3:"
  59. Ask  77  9
  60. OutputAnswer "BS:" 7
  61. OutputAnswer "BS:"  8
  62. OutputAnswer "BS:"  9
  63. Display "|"
  64. Display "|"
  65. Changecolor 12 0
  66. SetSecurity 25
  67. UpdateBoards
  68. Display " --------------------|"
  69. Display "  **Access Updated** |"
  70. Display " --------------------|||"
  71. Quit
  72.